﻿Public Class _Default
    Inherits Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load

    End Sub

    Protected Sub BtnSiguiente_Click(sender As Object, e As EventArgs) Handles BtnSiguiente.Click

        Me.LabelAdvertencia.Text = ""

        If (EstanVaciosLosCampos()) Then
            Me.LabelAdvertencia.Text = "No deben haber campos vacios"
            Return
        End If

        If (Not DiaEsUnNumero()) Then
            Me.LabelAdvertencia.Text = "El dia debe ser numerico"
            Return
        End If

        If (Not AnioEsUnNumero()) Then
            Me.LabelAdvertencia.Text = "El año debe ser numerico"
            Return
        End If

        If (Not HayUnMesSeleccionado()) Then
            Me.LabelAdvertencia.Text = "No se selecciono un mes"
            Return
        End If

        Me.LabelAdvertencia.Text = "Todo correcto..."



    End Sub

    Private Function EstanVaciosLosCampos() As Boolean

        Dim nombre, dia, anio As String

        dia = Me.TxtDia.Text
        nombre = Me.TxtNombre.Text
        anio = Me.TxtAnio.Text

        Return (String.IsNullOrEmpty(nombre) Or String.IsNullOrEmpty(dia) Or String.IsNullOrEmpty(anio))

    End Function



    Private Function DiaEsUnNumero() As Boolean
        Dim respuestaADevolver As Boolean

        respuestaADevolver = False

        Try
            Dim dia As Integer = Convert.ToInt32(Me.TxtDia.Text)
            respuestaADevolver = True

        Catch ex As Exception
            respuestaADevolver = False
        End Try

        Return respuestaADevolver
    End Function


    Private Function AnioEsUnNumero() As Boolean
        Dim respuestaADevolver As Boolean

        respuestaADevolver = False

        Try
            Dim anio As Integer = Convert.ToInt32(Me.TxtAnio.Text)
            respuestaADevolver = True

        Catch ex As Exception
            respuestaADevolver = False
        End Try

        Return respuestaADevolver
    End Function

    Private Function HayUnMesSeleccionado() As Boolean
        Return (Me.DropDownListMes.SelectedValue <> "0")
    End Function

End Class